home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-4 / card_4012.txt < prev    next >
Text File  |  1990-04-06  |  4KB  |  206 lines
  1. -- card: 4012 from stack: in.0-4
  2. -- bmap block id: 2320
  3. -- flags: 0000
  4. -- background id: 2767
  5. -- name: Ex 1.6
  6.  
  7.  
  8. -- part 4 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=97 top=124 right=200 bottom=159
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: choice1
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   hideFeedback
  23.   set hilite of me to not hilite of me
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 5 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=178 top=124 right=200 bottom=285
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: choice2
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   hideFeedback
  43.   set hilite of me to not hilite of me
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 6 (button)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=301 top=124 right=200 bottom=363
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: choice3
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   hideFeedback
  63.   set hilite of me to not hilite of me
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 7 (button)
  69. -- low flags: 00
  70. -- high flags: 0000
  71. -- rect: left=142 top=203 right=279 bottom=204
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: choice4
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   hideFeedback
  83.   set hilite of me to not hilite of me
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 8 (button)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=257 top=204 right=280 bottom=319
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: choice5
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   hideFeedback
  103.   set hilite of me to not hilite of me
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 11 (button)
  109. -- low flags: 00
  110. -- high flags: A003
  111. -- rect: left=399 top=296 right=314 bottom=458
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Done
  120. ----- HyperTalk script -----
  121. -- The "checkManyRight" handler is in the stack script.
  122. on mouseUp
  123.   put empty into choices
  124.   repeat with i=1 to 5
  125.     if the hilite of btn ("choice" & i) is true then
  126.       put i after choices
  127.     end if
  128.   end repeat
  129.   if choices is fld "answer" then ans 1
  130.   else if length(choices) = 0 then noAns
  131.   else if length(choices) = 1 then ans 2
  132.   else ans 3
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 13 (button)
  138. -- low flags: 00
  139. -- high flags: 0000
  140. -- rect: left=476 top=278 right=308 bottom=507
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 13043 / 13043
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Mask
  149.  
  150.  
  151. -- part 14 (button)
  152. -- low flags: 00
  153. -- high flags: A003
  154. -- rect: left=346 top=320 right=338 bottom=461
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Correct Answer
  163. ----- HyperTalk script -----
  164. -- This handler shows the correct answer.  It dehilites all btns,
  165. -- then hilites the correct ones.
  166. on mouseUp
  167.   hideFeedback
  168.   repeat 3
  169.     dehiliteBtns
  170.     wait 15
  171.     lock screen
  172.     repeat with i=1 to 5
  173.       set the hilite of btn i to true
  174.     end repeat
  175.     unlock screen
  176.     wait 15
  177.   end repeat
  178.   ans 5
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part contents for background part 9
  184. ----- text -----
  185. 6 of 6
  186.  
  187. -- part contents for background part 6
  188. ----- text -----
  189.  
  190. Click on the possible advanced uses or extensions of HyperCard. Click ‚ÄúDone‚Äù when you have made your selection.
  191.  
  192.  
  193.  
  194.  
  195.  
  196. -- part contents for background part 21
  197. ----- text -----
  198. Yes! HyperCard can do all these things and more.
  199. Yes, this choice is correct -- but look closely and you‚Äôll see that all choices are correct.
  200. Yes, these choices are correct -- but look closely and you‚Äôll see that all choices are correct.
  201. Please answer the question before clicking ‚ÄúDone‚Äù.
  202. This is the correct answer. HyperCard can do all these things and more.
  203.  
  204. -- part contents for background part 19
  205. ----- text -----
  206. 12345